/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (ppc).sea / pro Fit 5.0 demo (ppc) / Examples / Programming - intro / function - simple

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 66 75 6e 63 74 69 | 6f 6e 20 2d 20 73 69 6d |..functi|on - sim|
|00000010| 70 6c 65 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ple.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 66 74 46 43 4e 4c 66 | 74 01 00 00 00 00 00 00 |.ftFCNLf|t.......|
|00000050| 00 00 00 00 00 02 70 00 | 00 03 2f ad a9 6c 74 ad |......p.|../..lt.|
|00000060| a9 6c 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.lt.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 56 3e 00 00 |........|....V>..|
|00000080| 7b 20 09 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |{ .The f|ollowing|
|00000090| 20 69 73 20 61 20 72 61 | 74 68 65 72 20 73 69 6d | is a ra|ther sim|
|000000a0| 70 6c 65 20 66 75 6e 63 | 74 69 6f 6e 2e 20 49 74 |ple func|tion. It|
|000000b0| 20 73 68 6f 77 73 20 68 | 6f 77 20 74 6f 0d 20 20 | shows h|ow to.  |
|000000c0| 20 75 73 65 20 74 68 65 | 20 73 74 61 74 65 6d 65 | use the| stateme|
|000000d0| 6e 74 73 20 27 64 65 73 | 63 72 69 70 74 69 6f 6e |nts 'des|cription|
|000000e0| 27 20 61 6e 64 20 27 64 | 65 66 61 75 6c 74 73 27 |' and 'd|efaults'|
|000000f0| 2e 0d 20 20 20 54 6f 20 | 61 64 64 20 74 68 65 20 |..   To |add the |
|00000100| 66 75 6e 63 74 69 6f 6e | 20 74 6f 20 74 68 65 20 |function| to the |
|00000110| 22 46 75 6e 63 22 20 6d | 65 6e 75 2c 20 63 6c 69 |"Func" m|enu, cli|
|00000120| 63 6b 20 74 68 65 20 62 | 75 74 74 6f 6e 20 0d 20 |ck the b|utton . |
|00000130| 20 20 22 41 64 64 22 20 | 61 62 6f 76 65 20 6f 72 |  "Add" |above or|
|00000140| 20 63 68 6f 6f 73 65 20 | 22 41 64 64 20 74 6f 20 | choose |"Add to |
|00000150| 6d 65 6e 75 22 20 66 72 | 6f 6d 20 74 68 65 20 22 |menu" fr|om the "|
|00000160| 4d 69 73 63 22 20 6d 65 | 6e 75 2e 0d 20 20 20 54 |Misc" me|nu..   T|
|00000170| 6f 20 76 69 65 77 20 74 | 68 65 20 66 75 6e 63 74 |o view t|he funct|
|00000180| 69 6f 6e 2c 20 63 68 65 | 63 6b 20 22 53 68 6f 77 |ion, che|ck "Show|
|00000190| 20 46 75 6e 63 74 69 6f | 6e 22 20 69 6e 20 74 68 | Functio|n" in th|
|000001a0| 65 20 70 72 65 76 69 65 | 77 0d 20 20 20 77 69 6e |e previe|w.   win|
|000001b0| 64 6f 77 2e 0d 7d 0d 20 | 20 20 0d 66 75 6e 63 74 |dow..}. |  .funct|
|000001c0| 69 6f 6e 20 53 69 6e 50 | 6f 6c 79 3b 0d 0d 20 64 |ion SinP|oly;.. d|
|000001d0| 65 73 63 72 69 70 74 69 | 6f 6e 20 20 20 20 20 20 |escripti|on      |
|000001e0| 20 20 7b 6f 70 74 69 6f | 6e 61 6c 20 64 65 73 63 |  {optio|nal desc|
|000001f0| 72 69 70 74 69 6f 6e 20 | 74 6f 20 61 70 70 65 61 |ription |to appea|
|00000200| 72 20 69 6e 20 70 61 72 | 61 6d 65 74 65 72 73 20 |r in par|ameters |
|00000210| 77 69 6e 64 6f 77 7d 0d | 20 20 20 20 27 78 2a 78 |window}.|    'x*x|
|00000220| 20 2b 20 61 6d 70 6c 2a | 73 69 6e 28 6b 2a 78 29 | + ampl*|sin(k*x)|
|00000230| 27 2c 20 27 65 78 61 6d | 70 6c 65 20 66 75 6e 63 |', 'exam|ple func|
|00000240| 74 69 6f 6e 27 3b 0d 0d | 20 64 65 66 61 75 6c 74 |tion';..| default|
|00000250| 73 20 20 20 20 20 20 20 | 20 20 20 20 7b 6f 70 74 |s       |    {opt|
|00000260| 69 6f 6e 61 6c 20 64 65 | 66 61 75 6c 74 20 76 61 |ional de|fault va|
|00000270| 6c 75 65 73 2c 20 6d 6f | 64 65 73 20 61 6e 64 20 |lues, mo|des and |
|00000280| 6e 61 6d 65 73 7d 0d 20 | 20 20 20 61 5b 31 5d 20 |names}. |   a[1] |
|00000290| 3a 3d 20 30 2e 31 2c 20 | 61 63 74 69 76 65 2c 20 |:= 0.1, |active, |
|000002a0| 27 61 6d 70 6c 27 3b 0d | 20 20 20 20 61 5b 32 5d |'ampl';.|    a[2]|
|000002b0| 20 3a 3d 20 32 30 2c 20 | 61 63 74 69 76 65 2c 20 | := 20, |active, |
|000002c0| 27 6b 27 3b 0d 0d 62 65 | 67 69 6e 0d 20 20 79 20 |'k';..be|gin.  y |
|000002d0| 3a 3d 20 78 2a 78 20 2b | 20 61 5b 31 5d 2a 73 69 |:= x*x +| a[1]*si|
|000002e0| 6e 28 61 5b 32 5d 2a 78 | 29 3b 0d 65 6e 64 3b 0d |n(a[2]*x|);.end;.|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 01 00 00 00 02 b9 | 00 00 01 b9 00 00 00 76 |........|.......v|
|00000310| 7d 55 50 09 07 06 aa ba | ea ba ae aa 90 09 07 07 |}UP.....|........|
|00000320| 55 5d dd ff 5d 55 50 09 | 07 06 aa bf fb bb ba aa |U]..]UP.|........|
|00000330| 11 66 75 6e 63 74 69 6f | 6e 20 2d 20 73 69 6d 70 |.functio|n - simp|
|00000340| 6c 65 02 00 00 00 66 74 | 46 43 4e 4c 66 74 01 00 |le....ft|FCNLft..|
|00000350| 00 00 66 74 46 43 4e 4c | 66 74 01 00 ff ff ff ff |..ftFCNL|ft......|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000370| 00 00 ad a9 24 f3 00 00 | 02 70 00 00 03 2f 03 fb |....$...|.p.../..|
|00000380| ff 00 e0 a0 00 83 ff 00 | 00 0a 8c 0a 8c 00 00 00 |........|........|
|00000390| 00 00 12 00 37 00 11 02 | ff 0c 00 ff ff ff ff 00 |....7...|........|
|000003a0| 00 00 00 00 00 00 00 00 | 37 00 00 00 12 00 00 00 |........|7.......|
|000003b0| 00 00 00 00 a0 30 39 00 | a0 00 82 00 01 00 0a 80 |.....09.|........|
|000003c0| 01 80 01 7f ff 7f ff 00 | 99 80 3e 00 00 00 00 00 |........|..>.....|
|000003d0| 12 00 3e 00 00 00 00 00 | 00 00 00 00 48 00 00 00 |..>.....|....H...|
|000003e0| 48 00 00 00 00 00 08 00 | 01 00 08 00 00 00 00 01 |H.......|........|
|000003f0| 18 78 18 00 00 00 00 00 | 00 11 db 80 00 00 ff 00 |.x......|........|
|00000400| 00 00 00 08 00 3c 00 05 | 01 9f 02 09 00 00 01 06 |.....<..|........|
|00000410| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 44 40 a1 |.......M|onacoD@.|
|00000420| 27 a0 00 4a d7 4c 00 81 | 00 00 00 01 d9 94 fe 00 |'..J.L..|........|
|00000430| 10 00 00 00 00 10 01 b9 | 70 70 00 02 a2 04 00 0b |........|pp......|
|00000440| 00 06 00 0b 00 06 00 01 | 00 01 01 93 de 20 00 00 |........|..... ..|
|00000450| 00 00 00 00 00 00 01 b9 | 71 80 01 93 73 dc 02 60 |........|q...s..`|
|00000460| 44 84 01 93 e1 fc 00 81 | 00 08 01 93 86 50 01 93 |D.......|.....P..|
|00000470| de be 00 00 00 01 00 04 | a9 60 00 00 5c 30 00 00 |........|.`..\0..|
|00000480| 01 32 00 00 01 75 00 00 | 00 00 00 00 01 65 00 00 |.2...u..|.....e..|
|00000490| 01 22 00 00 00 00 01 b9 | 70 e0 24 08 02 82 00 14 |."......|p.$.....|
|000004a0| 01 94 00 0e 75 a0 01 b9 | 70 e0 00 17 c9 5c 00 13 |....u...|p....\..|
|000004b0| f9 64 00 00 5c 30 01 b9 | 70 e0 00 17 c9 5c 02 80 |.d..\0..|p....\..|
|000004c0| 00 00 00 00 00 00 00 00 | 00 50 00 17 c9 5c 01 23 |........|.P...\.#|
|000004d0| 01 66 01 23 01 66 01 b9 | 70 f0 00 00 00 00 00 9c |.f.#.f..|p.......|
|000004e0| 00 00 00 0a 9d e0 00 00 | 64 d0 00 01 2f a4 00 00 |........|d.../...|
|000004f0| 00 00 00 0a 9e 20 01 94 | 01 d2 00 0e 75 80 07 80 |..... ..|....u...|
|00000500| 03 80 00 00 00 00 01 b9 | 71 40 00 00 00 01 00 13 |........|q@......|
|00000510| f6 f8 00 4f ad 60 00 00 | 00 10 00 00 00 00 00 00 |...O.`..|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 04 00 00 |........|........|
|00000530| 00 01 00 00 00 78 00 03 | 00 00 00 48 00 48 00 00 |.....x..|...H.H..|
|00000540| 00 00 02 d8 02 28 ff e1 | ff e2 02 f9 02 46 03 47 |.....(..|.....F.G|
|00000550| 05 28 03 fc 00 02 00 00 | 00 48 00 48 00 00 00 00 |.(......|.H.H....|
|00000560| 02 d8 02 28 00 01 00 00 | 00 64 00 00 00 01 00 03 |...(....|.d......|
|00000570| 03 03 00 00 00 01 27 0f | 00 01 00 01 00 00 00 00 |......'.|........|
|00000580| 00 00 00 00 00 00 00 00 | 60 08 00 19 01 90 00 00 |........|`.......|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 07 06 70 72 6f 46 69 | 74 00 00 01 00 00 00 02 |...proFi|t.......|
|000005c0| b9 00 00 01 b9 00 00 00 | 76 01 94 15 2c 26 90 00 |........|v...,&..|
|000005d0| 00 00 1c 00 76 00 01 66 | 49 4e 46 00 04 00 12 53 |....v..f|INF....S|
|000005e0| 54 52 20 00 00 00 4e 00 | 81 ff ff 00 00 00 00 01 |TR ...N.|........|
|000005f0| 94 0b d8 00 82 ff ff 00 | 00 00 0c 01 94 0a d0 00 |........|........|
|00000600| 83 ff ff 00 00 01 16 01 | 94 0b 70 00 85 ff ff 00 |........|..p.....|
|00000610| 00 01 2a 01 94 0b fc 00 | 84 ff ff 00 00 01 32 01 |..*.....|......2.|
|00000620| 94 0b c4 bf f4 ff ff 00 | 00 01 ae 01 94 14 f4 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+